Aminet 2/Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso/Aminet/gfx/opal/devdocs.lha/Examples/Demo.c

C/C++ Source or Header | 1993-05-05 | 4.0 KB | 183 lines

/* A simple test/demo for the opal.library.
 * Written by Martin Boyd, Opalvision Australia.
 */


#include "opal/opallib.h"
#include "stdlib.h"
#include "stdio.h"
#include "clib/macros.h"

#ifndef    AZTEC_C
#include <proto/all.h>
#endif

struct OpalBase *OpalBase;
struct OpalScreen *OScrn;

char FileName1[30];
char FileName2[30];

void Stencil_Square (int x,int y,int w,int h);

void main (int argc,char *argv[])
{
   register int x,y;
   register long i,j,k;
   int XSquares,YSquares;
   long Err,PixelsLeft,SquaresLeft;


    OpalBase = (struct OpalBase *) OpenLibrary ("opal.library",0L);
    if (OpalBase==0L)
        { printf ("Can't open opal.library\n");
          exit (0);
        }

    printf ("For this demo I will need 2 lo-res, non-interlaced  images..\n");
    printf ("FileName of Image1:");
    fflush (stdout);
    scanf ("%s", FileName1);
    printf ("FileName of Image2:");
    fflush (stdout);
    scanf ("%s", FileName2);

    Err = LoadImage24 (NULL,FileName1,FORCE24);
    if (Err < OL_ERR_MAXERR)
        { printf ("Error loading file!!");
          CloseLibrary ((struct Library *)OpalBase);
          exit (10);
        }

/* Start with frame 1 and put second image in frame 0. This enables
 * the playfield stencil (which is in frame 0) to be changed
 * later on
 */

    OScrn = (struct OpalScreen *)Err;
    WriteFrame24 (1);
    DisplayFrame24 (1);
    RegWait24 ();
    PaletteMap24 (TRUE);
    RegWait24 ();
    OScrn->PixelReadMask = 0;    /* Clear Pixel Read Mask so that */
    UpdateRegs24();            /* update will not be visible. */
    RegWait24();
    Refresh24();            /* Write image into frame buffer */
    AutoSync24 (TRUE);
    OScrn->PixelReadMask = 0xff;    /* Reset pixel read mask     */
    FadeIn24 (200L);        /* Fade 'er in            */

    for (i=0; i<OScrn->Modulo; i++)        /* do a bit of scrolling    */
        Scroll24 (1L,0L);
    for (i=0; i<OScrn->Modulo; i++)
        Scroll24 (-1L,0L);

    Delay (25L);

    j = MIN (OScrn->Height,OScrn->LastCoProIns);
    for (; j>0; j--)
        { OScrn->AddressReg = OScrn->Modulo*j + 3;
          for (i=0; i<j; i++)
            OScrn->CoProData[i] &= ~ADDLOAD;
          for (i=j; i<OScrn->LastCoProIns; i++)
            OScrn->CoProData[i] |= ADDLOAD;
          RegWait24();
          UpdateCoPro24 ();
        }
    Delay (25L);

    for (j=1; j<OScrn->LastCoProIns; j++)
        { OScrn->AddressReg = OScrn->Modulo*j + 3;
          for (i=0; i<OScrn->LastCoProIns; i++)
            OScrn->CoProData[i] |= ADDLOAD;
          for (i=j; i<OScrn->LastCoProIns; i=i+j)
            OScrn->CoProData[i] &= ~ADDLOAD;
          RegWait24();
          UpdateCoPro24 ();
        }
    OScrn->AddressReg = 0;
    SetLoadAddress24();
    RegWait24 ();

/* Now load the second image into frame 0.
 */

    WriteFrame24 (0);
    DisplayFrame24 (0);
    Err = LoadImage24 (OScrn,FileName2,FORCE24);
    if (Err < OL_ERR_MAXERR)
        { printf ("Error loading file!!");
          CloseScreen24 ();
          CloseLibrary ((struct Library *)OpalBase);
          exit (10);
        }
    Refresh24();
    Delay (50L);
    ClearPFStencil24 (OScrn);
    UpdatePFStencil24 ();
    UpdateDelay24 (0L);
    Delay (1L);
    DualPlayField24 ();

    OScrn->Pen_R = 1;

    XSquares = (OScrn->Width+15)/16;
    YSquares = (OScrn->Height+15)/16;
    srand (12345678L);
    SquaresLeft = XSquares*YSquares;
    while (SquaresLeft)
        { x = ((float)rand () * XSquares)/RAND_MAX;
          y = ((float)rand () * YSquares)/RAND_MAX;
          x = x * 16;
          y = y * 16;
          if (!ReadPFPixel24 (OScrn,x,y))
            { SquaresLeft--;
              Stencil_Square (x,y,16,16);
            }
        }

    OScrn->Pen_R = 0;
    PixelsLeft = (long)OScrn->Width * OScrn->Height;
    for (j=0; j<10; j++)
        for (i=0; i<30000; i++)
            { x = ((float)rand () * OScrn->Width)/RAND_MAX;
              y = ((float)rand () * OScrn->Height)/RAND_MAX;
              if (ReadPFPixel24 (OScrn,x,y))
                { PixelsLeft--;
                  WritePFPixel24 (OScrn,x,y);
                }
            }

    OScrn->Pen_R = 1;
    for (k=0; k<YSquares/2; k++)
        { for (i=0; i<XSquares; i++)
            { Stencil_Square ((int)i*16,(int)k*32,16,16);
              Delay(1L);
            }
          for (i=XSquares-1; i>=0; i--)
            { Stencil_Square ((int)i*16,((int)k*32)+16,16,16);
              Delay(1L);
            }
        }

    FadeOut24 (200L);
    CloseScreen24 ();
    CloseLibrary ((struct Library *)OpalBase);
}

void Stencil_Square (int x,int y,int w,int h)
{
   register int i,j;

    w = w + x;
    h = h + y;
    for (j=y; j<h; j++)
        for (i=x; i<w; i++)
            WritePFPixel24 (OScrn,i,j);
}